home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2003 November / PCWK1103B.iso / DesignCAD 3D Max PLUS trial 30 / DATA1.CAB / Example_Files / Sample_Macros / Double-Line and Door.d3m < prev    next >
Encoding:
Text File  |  2003-09-29  |  1.8 KB  |  81 lines
  1. ' This macro starts a new DesignCAD drawing, then draws a 20 foot
  2. ' long line, offsets it for an interior wall width, then asks the
  3. ' user for the door width.  It then allows the user to snap to
  4. ' the bottom of the wall, and uses that point to break the wall.
  5. ' It breaks a hole in the wall for the width the user wanted,
  6. ' caps both breaks in the wall, then draws the door symbol with 
  7. ' an angled line and an arc.
  8. ' 
  9. ' Open a new Drawing
  10.     >New
  11.     {
  12.     }
  13. ' Draw a 20 foot long wall
  14.     >Line
  15.     {
  16.     <pointxyz 0, 0, 0
  17.     <pointpolar 20, 0, 0
  18.     }
  19. ' Select the entire drawing
  20.     >SelectAll
  21.     {
  22.     }
  23. ' Offset wall 6 inches
  24.     >Parallel
  25.     {
  26.     <pointxyz 0, 0, 0
  27.     <pointxyz 0, .5, 0
  28.     }
  29. ' Fit results to Window
  30.     >FitToWindow
  31.     {
  32.     }
  33. ' Ask User for Door Width, (not thickness)
  34. ' Un-remark these next 2 lines to make the input box appear in the upper 
  35. ' left corner of the DesignCAD window, so it does not cover the drawing area.
  36.     ' Sys(130) = 5
  37.     ' Sys(131) = 5
  38. ' Get Distances from user
  39.     Input "What's the Door's Width, (not wall thickness)", wide
  40. ' Ask user to set a point for the Door's left base point
  41.     setpoint "Snap to the bottom of the wall with the line snap, (K) for the Door's left corner", 1
  42. ' Get that point the user set
  43.     getxy x1 y1 z1
  44. ' Cut Wall Section out
  45.     >SectionDeleteCut
  46.     {
  47.     <Pointxyz [x1], [y1 + 5], 0
  48.     <Pointxyz [x1 + wide], [y1 - 5], 0
  49.     }
  50. ' Cap off the left line
  51.     >Line
  52.     {
  53.     <pointxyz [x1], [y1], 0
  54.     <gravity [x1], [.5], 0
  55.     }
  56. ' Cap off the right line
  57.     >Line
  58.     {
  59.     <pointxyz [x1+wide], [y1], 0
  60.     <gravity [x1+wide], [.5], 0
  61.     }
  62. ' Draw the Door's Line
  63.     >Line
  64.     {
  65.     <pointxyz [x1], [y1], 0
  66.     <PointPolar [wide], 45, 0
  67.     }
  68. ' Draw the Door's Arc
  69.     >Arc
  70.     {    
  71.     <Angle 45
  72.     <Type 0
  73.     <pointxyz [x1], [y1], 0
  74.     <pointxyz [x1+wide],[y1], 0
  75.     }
  76. ' Done
  77.     End
  78.  
  79.     
  80.  
  81.